# install.packages("flextable")
library(tidyverse)
library(flextable)
# Create the dataset
fertilizer_data <- tibble(
fertilizer = rep(c("A", "B", "C"), each = 3),
height = c(10, 12, 8, # Fertilizer A
14, 16, 18, # Fertilizer B
20, 22, 24) # Fertilizer C
)
# Display the dataset using flextable
flextable(fertilizer_data) %>%
set_caption("Plant Heights by Fertilizer Type") %>%
theme_vanilla() %>%
autofit()fertilizer | height |
|---|---|
A | 10 |
A | 12 |
A | 8 |
B | 14 |
B | 16 |
B | 18 |
C | 20 |
C | 22 |
C | 24 |